home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / [_Time_Syn1802171072004.psc / cLogger.cls < prev    next >
Text File  |  2004-08-17  |  1KB  |  59 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "CLogger"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10.  
  11. Option Explicit
  12.  
  13. Private mstrDestination  As String
  14.  
  15. Public Property Get Destination() As String
  16.     Destination = mstrDestination
  17. End Property
  18.  
  19. Public Property Let Destination(ByVal sNewValue As String)
  20.     mstrDestination = sNewValue
  21. End Property
  22.     
  23. Public Sub StartLog()
  24.     Dim iFileNumber As Integer
  25.         
  26.     iFileNumber = FreeFile
  27.     Open mstrDestination For Append As #iFileNumber
  28.     Print #iFileNumber, "===================================="
  29.     Print #iFileNumber, "LogFile Started: " & Now()
  30.     Close #iFileNumber
  31.     
  32. End Sub
  33.  
  34. Public Sub CloseLog()
  35.     Dim iFileNumber As Integer
  36.     
  37.     iFileNumber = FreeFile
  38.     Open mstrDestination For Append As #iFileNumber
  39.     Print #iFileNumber, "LogFile Ended: " & Now()
  40.     Print #iFileNumber, "===================================="
  41.     Close #iFileNumber
  42.     
  43. End Sub
  44.  
  45. Public Sub LogEntry(strMessage As String)
  46.     
  47.     Dim iFileNumber As Integer
  48.        
  49.     iFileNumber = FreeFile
  50.     Open mstrDestination For Append As #iFileNumber
  51.     Print #iFileNumber, strMessage
  52.     Close #iFileNumber
  53.         
  54. End Sub
  55.  
  56. Private Sub Class_Terminate()
  57.     Close
  58. End Sub
  59.